home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / eq_nf1.zip / NEWFILES.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-06-14  |  18KB  |  1,207 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  TINTEGER018(999)
  37.     Integer  TINTEGER019(999)
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Integer  INTEGER028
  47.     Integer  INTEGER029
  48.     Integer  INTEGER030
  49.     Integer  INTEGER031
  50.     String   STRING001
  51.     String   STRING002
  52.     String   STRING003
  53.     String   STRING004
  54.     String   STRING005
  55.     String   STRING006
  56.     String   STRING007
  57.     String   STRING008
  58.     String   STRING009
  59.     String   STRING010
  60.     String   STRING011
  61.     String   TSTRING012(3)
  62.     String   STRING013
  63.     String   TSTRING014(999)
  64.     String   TSTRING015(999)
  65.     String   STRING016
  66.     String   STRING017
  67.     String   STRING018
  68.     String   STRING019
  69.     String   STRING020
  70.     String   STRING021
  71.     String   TSTRING022(999)
  72.     String   STRING023
  73.     String   TSTRING024(999)
  74.     String   TSTRING025(999)
  75.     String   STRING026
  76.     String   STRING027
  77.     String   STRING028
  78.     String   TSTRING029(999)
  79.     String   STRING030
  80.     String   STRING031
  81.     String   STRING032
  82.     String   STRING033
  83.     String   TSTRING034(999)
  84.     String   STRING035
  85.     String   STRING036
  86.     String   STRING037
  87.     String   STRING038
  88.     String   STRING039
  89.     String   STRING040
  90.     String   STRING041
  91.     String   STRING042
  92.     String   STRING043
  93.  
  94. ;------------------------------------------------------------------------------
  95.  
  96.     If (Exist(PPEPath() + "FLAG.TMP")) Delete PPEPath() + "FLAG.TMP"
  97.     Gosub LABEL042
  98.     STRING041 = ReadLine(PCBDat(), 94)
  99.     INTEGER031 = Len(STRING041) / 5
  100.     STRING042 = String(Asc(Mid(STRING041, INTEGER031, 3))) + String(Asc(Left(STRING041, 3))) + String(Asc(Mid(STRING041, 7, 9))) - 87434321
  101.     FOpen 1, PPEPath() + "NEWFILES.KEY", 0, 0
  102.     FGet 1, STRING043
  103.     FCloseAll
  104.     STRING028 = 1
  105.     For INTEGER001 = 1 To 999
  106.         STRING016 = CurConf()
  107.         TSTRING015(INTEGER001) = ReadLine(PPEPath() + "area." + STRING016, INTEGER001)
  108.         If (Len(TSTRING015(INTEGER001)) < 1) Then
  109.             Break
  110.         Endif
  111.         INTEGER011 = InStr(TSTRING015(INTEGER001), ";")
  112.         TSTRING014(INTEGER001) = Right(TSTRING015(INTEGER001), Len(TSTRING015(INTEGER001)) - INTEGER011)
  113.         TSTRING015(INTEGER001) = Left(TSTRING015(INTEGER001), INTEGER011 - 1)
  114.     Next
  115.     INTEGER008 = INTEGER001 - 1
  116.     If (STRING042 <> STRING043) Then
  117.         Goto LABEL002
  118.     ElseIf (STRING042 == STRING043) Then
  119.         Goto LABEL001
  120.     Endif
  121.     :LABEL001
  122.     Cls
  123.     Newline
  124.     PrintLn "@X19┌───────@X10┐@X07"
  125.     PrintLn "@X19│ █████ @X10│@X0E NuFILES v1.00@X07"
  126.     PrintLn "@X19│       @X10│@X07 Copyright (c)1996 Equinox Software@X07"
  127.     PrintLn "@X19│ @X10┌───@X19┐ @X10│@X07 @X0CRegistered to: @BOARDNAME@@X07"
  128.     PrintLn "@X19└@X10─┴@X19───┴@X10─┘@X07"
  129.     PrintLn "@X09─────────────────────────────────────────────────────────────────────────────@X07"
  130.     Newline
  131.     Goto LABEL003
  132.     :LABEL002
  133.     Cls
  134.     Newline
  135.     PrintLn "@X19┌───────@X10┐@X07"
  136.     PrintLn "@X19│ █████ @X10│@X0E NuFILES v1.00@X07"
  137.     PrintLn "@X19│       @X10│@X07 Copyright (c)1996 Equinox Software@X07"
  138.     PrintLn "@X19│ @X10┌───@X19┐ @X10│@X07 @X8CUNREGISTERED EVALUATION COPY@X07"
  139.     PrintLn "@X19└@X10─┴@X19───┴@X10─┘@X07"
  140.     PrintLn "@X09─────────────────────────────────────────────────────────────────────────────@X07"
  141.     Newline
  142.     :LABEL003
  143.     STRING007 = "@X0F≡@X09≡ "
  144.     STRING001 = "@X0B My Last Call "
  145.     STRING002 = "@X0B Today "
  146.     STRING003 = "@X0B Desired Date "
  147.     STRING004 = "@X71 MY LAST CALL "
  148.     STRING005 = "@X71 TODAY "
  149.     STRING006 = "@X71 DESIRED DATE @X07"
  150.     STRING008 = "@X0C[@X0E··/··/9·@X0C]"
  151.     STRING009 = "@X0C[@X0E···@X0C]"
  152.     STRING010 = "@X0APlease Wait... Currently Scanning@X07"
  153.     TSTRING012(1) = ReadLine(PPEPath() + "newfiles.cfg", 1)
  154.     If (Len(TSTRING012(1)) > 33) Then
  155.         TSTRING012(1) = Left(TSTRING012(1), 32)
  156.     Endif
  157.     TSTRING012(2) = ReadLine(PPEPath() + "newfiles.cfg", 2)
  158.     If (Len(TSTRING012(2)) > 64) Then
  159.         TSTRING012(2) = Left(TSTRING012(2), 63)
  160.     Endif
  161.     TSTRING012(3) = ReadLine(PPEPath() + "newfiles.cfg", 3)
  162.     If (Len(TSTRING012(3)) > 68) Then
  163.         TSTRING012(3) = Left(TSTRING012(3), 68)
  164.     Endif
  165.     STRING039 = ReadLine(PPEPath() + "newfiles.cfg", 4)
  166.     INTEGER009 = GetY()
  167.     AnsiPos 1, INTEGER009
  168.     Print STRING007
  169.     INTEGER001 = GetX()
  170.     INTEGER011 = 1
  171.     INTEGER013 = 1
  172.     INTEGER012 = Len(TSTRING012(INTEGER011))
  173.     Color 8
  174.     Gosub LABEL004
  175.     Print " - "
  176.     INTEGER014 = GetX()
  177.     Print STRING004
  178.     Color 8
  179.     Print " "
  180.     INTEGER015 = GetX()
  181.     Print STRING002
  182.     Color 8
  183.     Print " "
  184.     INTEGER016 = GetX()
  185.     Print STRING003
  186.     Color 8
  187.     Print " "
  188.     INTEGER009 = GetY()
  189.     Color 119
  190.     AnsiPos INTEGER014, INTEGER009
  191.     Print "█@X07"
  192.     AnsiPos INTEGER014, INTEGER009
  193.     Print ""
  194.     INTEGER010 = 1
  195.     Goto LABEL005
  196.     :LABEL004
  197.     If (INTEGER013 == INTEGER012 + 1) Then
  198.         Return
  199.     Endif
  200.     STRING011 = Left(TSTRING012(INTEGER011), INTEGER013)
  201.     STRING011 = Right(STRING011, 1)
  202.     Color 8
  203.     AnsiPos INTEGER001, INTEGER009
  204.     Print STRING011
  205.     Color 7
  206.     AnsiPos INTEGER001, INTEGER009
  207.     Print STRING011
  208.     Color 15
  209.     AnsiPos INTEGER001, INTEGER009
  210.     Print STRING011
  211.     INTEGER013 = INTEGER013 + 1
  212.     INTEGER001 = INTEGER001 + 1
  213.     Color 8
  214.     Goto LABEL004
  215.     :LABEL005
  216.     STRING011 = Inkey()
  217.     If (STRING011 == "LEFT") Then
  218.         If (INTEGER010 == 1) Then
  219.             AnsiPos INTEGER014, INTEGER009
  220.             Print STRING001
  221.             AnsiPos INTEGER016, INTEGER009
  222.             Print STRING006
  223.             AnsiPos INTEGER016, INTEGER009
  224.             Color 119
  225.             Print "█@X07"
  226.             AnsiPos INTEGER016, INTEGER009
  227.             Print ""
  228.             INTEGER010 = 3
  229.             Goto LABEL005
  230.         Endif
  231.         If (INTEGER010 == 2) Then
  232.             AnsiPos INTEGER015, INTEGER009
  233.             Print STRING002
  234.             AnsiPos INTEGER014, INTEGER009
  235.             Print STRING004
  236.             AnsiPos INTEGER014, INTEGER009
  237.             Color 119
  238.             Print "█@X07"
  239.             AnsiPos INTEGER014, INTEGER009
  240.             Print ""
  241.             INTEGER010 = 1
  242.             Goto LABEL005
  243.         Endif
  244.         If (INTEGER010 == 3) Then
  245.             AnsiPos INTEGER016, INTEGER009
  246.             Print STRING003
  247.             AnsiPos INTEGER015, INTEGER009
  248.             Print STRING005
  249.             AnsiPos INTEGER015, INTEGER009
  250.             Color 119
  251.             Print "█@X07"
  252.             AnsiPos INTEGER015, INTEGER009
  253.             Print ""
  254.             INTEGER010 = 2
  255.             Goto LABEL005
  256.         Endif
  257.     Endif
  258.     If (STRING011 == "RIGHT") Then
  259.         If (INTEGER010 == 1) Then
  260.             AnsiPos INTEGER014, INTEGER009
  261.             Print STRING001
  262.             AnsiPos INTEGER015, INTEGER009
  263.             Print STRING005
  264.             AnsiPos INTEGER015, INTEGER009
  265.             Color 119
  266.             Print "█@X07"
  267.             AnsiPos INTEGER015, INTEGER009
  268.             Print ""
  269.             INTEGER010 = 2
  270.             Goto LABEL005
  271.         Endif
  272.         If (INTEGER010 == 2) Then
  273.             AnsiPos INTEGER015, INTEGER009
  274.             Print STRING002
  275.             AnsiPos INTEGER016, INTEGER009
  276.             Print STRING006
  277.             AnsiPos INTEGER016, INTEGER009
  278.             Color 119
  279.             Print "█@X07"
  280.             AnsiPos INTEGER016, INTEGER009
  281.             Print ""
  282.             INTEGER010 = 3
  283.             Goto LABEL005
  284.         Endif
  285.         If (INTEGER010 == 3) Then
  286.             AnsiPos INTEGER016, INTEGER009
  287.             Print STRING003
  288.             AnsiPos INTEGER014, INTEGER009
  289.             Print STRING004
  290.             AnsiPos INTEGER014, INTEGER009
  291.             Color 119
  292.             Print "█@X07"
  293.             AnsiPos INTEGER014, INTEGER009
  294.             Print ""
  295.             INTEGER010 = 1
  296.             Goto LABEL005
  297.         Endif
  298.     Endif
  299.     If ((STRING011 == Chr(13)) && (INTEGER010 == 2)) Then
  300.         Goto LABEL007
  301.     Endif
  302.     If ((STRING011 == Chr(13)) && (INTEGER010 == 1)) Then
  303.         Goto LABEL006
  304.     Endif
  305.     If ((STRING011 == Chr(13)) && (INTEGER010 == 3)) Then
  306.         Goto LABEL008
  307.     Endif
  308.     Goto LABEL005
  309.     :LABEL006
  310.     GetUser
  311.     STRING035 = U_LDate()
  312.     Goto LABEL013
  313.     :LABEL007
  314.     STRING035 = Date()
  315.     Goto LABEL013
  316.     :LABEL008
  317.     Color 8
  318.     PrintLn ""
  319.     INTEGER009 = GetY()
  320.     INTEGER001 = 1
  321.     AnsiPos 1, INTEGER009
  322.     Print STRING007
  323.     INTEGER012 = Len(TSTRING012(2))
  324.     INTEGER001 = GetX()
  325.     INTEGER011 = 2
  326.     INTEGER013 = 1
  327.     Color 8
  328.     Gosub LABEL004
  329.     Print " - "
  330.     INTEGER001 = GetX()
  331.     Print STRING008
  332.     INTEGER001 = INTEGER001 + 1
  333.     AnsiPos INTEGER001, INTEGER009
  334.     Print ""
  335.     INTEGER013 = 1
  336.     INTEGER011 = 0
  337.     :LABEL009
  338.     STRING011 = Inkey()
  339.     If (STRING011 == Chr(8)) Then
  340.         Goto LABEL011
  341.     Endif
  342.     If (STRING011 == Chr(13)) Then
  343.         Goto LABEL012
  344.     Endif
  345.     If (STRING011 <> "") Then
  346.         Goto LABEL010
  347.     Endif
  348.     Goto LABEL009
  349.     :LABEL010
  350.     If (INTEGER013 == 1) Then
  351.         Color 14
  352.         AnsiPos INTEGER001, INTEGER009
  353.         Print STRING011
  354.         INTEGER013 = INTEGER013 + 1
  355.         AnsiPos INTEGER001 + 1, INTEGER009
  356.         Print ""
  357.         STRING013 = STRING013 + STRING011
  358.         Goto LABEL009
  359.     Endif
  360.     If (INTEGER013 == 2) Then
  361.         Color 14
  362.         AnsiPos INTEGER001 + 1, INTEGER009
  363.         Print STRING011
  364.         INTEGER013 = INTEGER013 + 1
  365.         AnsiPos INTEGER001 + 3, INTEGER009
  366.         Print ""
  367.         STRING013 = STRING013 + STRING011
  368.         Goto LABEL009
  369.     Endif
  370.     If (INTEGER013 == 3) Then
  371.         Color 14
  372.         AnsiPos INTEGER001 + 3, INTEGER009
  373.         Print STRING011
  374.         INTEGER013 = INTEGER013 + 1
  375.         AnsiPos INTEGER001 + 4, INTEGER009
  376.         Print ""
  377.         STRING013 = STRING013 + STRING011
  378.         Goto LABEL009
  379.     Endif
  380.     If (INTEGER013 == 4) Then
  381.         Color 14
  382.         AnsiPos INTEGER001 + 4, INTEGER009
  383.         Print STRING011
  384.         INTEGER013 = INTEGER013 + 1
  385.         AnsiPos INTEGER001 + 7, INTEGER009
  386.         Print ""
  387.         STRING013 = STRING013 + STRING011
  388.         Goto LABEL009
  389.     Endif
  390.     If (INTEGER011 == 1) Then
  391.         Goto LABEL009
  392.     Endif
  393.     If (INTEGER013 == 5) Then
  394.         Color 14
  395.         AnsiPos INTEGER001 + 7, INTEGER009
  396.         Print STRING011
  397.         STRING013 = STRING013 + STRING011
  398.         INTEGER011 = 1
  399.         Goto LABEL009
  400.     Endif
  401.     Goto LABEL009
  402.     :LABEL011
  403.     If (INTEGER011 == 2) Then
  404.         INTEGER011 = 0
  405.         INTEGER013 = 5
  406.     Endif
  407.     If (INTEGER013 == 2) Then
  408.         Color 8
  409.         AnsiPos INTEGER001 + 1, INTEGER009
  410.         Print "·"
  411.         INTEGER013 = INTEGER013 - 1
  412.         AnsiPos INTEGER001, INTEGER009
  413.         Print "·"
  414.         AnsiPos INTEGER001, INTEGER009
  415.         Print ""
  416.         STRING013 = Left(STRING013, Len(STRING013) - 1)
  417.         Goto LABEL009
  418.     Endif
  419.     If (INTEGER013 == 3) Then
  420.         Color 8
  421.         AnsiPos INTEGER001 + 3, INTEGER009
  422.         Print "·"
  423.         INTEGER013 = INTEGER013 - 1
  424.         AnsiPos INTEGER001 + 1, INTEGER009
  425.         Print "·"
  426.         AnsiPos INTEGER001 + 1, INTEGER009
  427.         Print ""
  428.         STRING013 = Left(STRING013, Len(STRING013) - 1)
  429.         Goto LABEL009
  430.     Endif
  431.     If (INTEGER013 == 4) Then
  432.         Color 8
  433.         AnsiPos INTEGER001 + 4, INTEGER009
  434.         Print "·"
  435.         INTEGER013 = INTEGER013 - 1
  436.         AnsiPos INTEGER001 + 3, INTEGER009
  437.         Print "·"
  438.         AnsiPos INTEGER001 + 3, INTEGER009
  439.         Print ""
  440.         STRING013 = Left(STRING013, Len(STRING013) - 1)
  441.         Goto LABEL009
  442.     Endif
  443.     If ((INTEGER013 == 5) && (INTEGER011 == 1)) Then
  444.         Color 8
  445.         AnsiPos INTEGER001 + 7, INTEGER009
  446.         Print "·"
  447.         AnsiPos INTEGER001 + 7, INTEGER009
  448.         AnsiPos INTEGER001 + 7, INTEGER009
  449.         Print ""
  450.         STRING013 = Left(STRING013, Len(STRING013) - 1)
  451.         INTEGER011 = 2
  452.         Goto LABEL009
  453.     Endif
  454.     If (INTEGER013 == 5) Then
  455.         Color 8
  456.         AnsiPos INTEGER001 + 7, INTEGER009
  457.         Print "·"
  458.         INTEGER013 = INTEGER013 - 1
  459.         AnsiPos INTEGER001 + 4, INTEGER009
  460.         Print "·"
  461.         AnsiPos INTEGER001 + 4, INTEGER009
  462.         Print ""
  463.         STRING013 = Left(STRING013, Len(STRING013) - 1)
  464.         INTEGER011 = 0
  465.         Goto LABEL009
  466.     Endif
  467.     Goto LABEL009
  468.     :LABEL012
  469.     Color 9
  470.     STRING011 = Left(STRING013, Len(STRING013) - 1)
  471.     STRING036 = Left(STRING013, 2)
  472.     STRING037 = Left(STRING013, 4)
  473.     STRING037 = Right(STRING037, 2)
  474.     STRING038 = Right(STRING013, 1)
  475.     STRING035 = STRING036 + "-" + STRING037 + "-9" + STRING038
  476.     :LABEL013
  477.     Color 8
  478.     PrintLn ""
  479.     INTEGER009 = GetY()
  480.     Print STRING007
  481.     INTEGER011 = 3
  482.     INTEGER012 = Len(TSTRING012(3))
  483.     INTEGER001 = GetX()
  484.     INTEGER013 = 1
  485.     Color 8
  486.     Gosub LABEL004
  487.     Print " - "
  488.     INTEGER001 = GetX()
  489.     Print STRING009
  490.     INTEGER001 = INTEGER001 + 1
  491.     INTEGER010 = INTEGER001
  492.     STRING013 = ""
  493.     AnsiPos INTEGER010, INTEGER009
  494.     Print ""
  495.     :LABEL014
  496.     STRING011 = Inkey()
  497.     If (STRING011 == Chr(13)) Then
  498.         Goto LABEL017
  499.     Endif
  500.     If (STRING011 == Chr(8)) Then
  501.         Goto LABEL016
  502.     Endif
  503.     If (STRING011 <> "") Then
  504.         Goto LABEL015
  505.     Endif
  506.     Goto LABEL014
  507.     :LABEL015
  508.     If (Len(STRING011) > 1) Then
  509.         Goto LABEL014
  510.     Endif
  511.     If (INTEGER010 > INTEGER001 + 2) Then
  512.         Goto LABEL014
  513.     Endif
  514.     Color 14
  515.     AnsiPos INTEGER010, INTEGER009
  516.     Print STRING011
  517.     INTEGER010 = GetX()
  518.     STRING013 = STRING013 + STRING011
  519.     STRING011 = ""
  520.     Goto LABEL014
  521.     :LABEL016
  522.     If (INTEGER010 < INTEGER001 + 1) Then
  523.         STRING011 = ""
  524.         Goto LABEL014
  525.     Endif
  526.     AnsiPos INTEGER010, INTEGER009
  527.     Color 9
  528.     Color 8
  529.     Print Chr(8) + "·"
  530.     INTEGER010 = GetX()
  531.     INTEGER010 = INTEGER010 - 1
  532.     AnsiPos INTEGER010, INTEGER009
  533.     Print ""
  534.     STRING013 = Left(STRING013, Len(STRING013) - 1)
  535.     STRING011 = ""
  536.     Goto LABEL014
  537.     :LABEL017
  538.     If (Upper(STRING013) == "A") Then
  539.         STRING040 = "A"
  540.     Else
  541.         INTEGER026 = STRING013
  542.     Endif
  543.     Color 8
  544.     PrintLn ""
  545.     PrintLn ""
  546.     INTEGER009 = GetY()
  547.     AnsiPos 1, INTEGER009
  548.     Print STRING007
  549.     Print STRING010
  550.     Color 8
  551.     Print " ["
  552.     INTEGER001 = GetX()
  553.     INTEGER027 = INTEGER001
  554.     INTEGER028 = INTEGER009
  555.     STRING017 = Left(STRING035, 2)
  556.     STRING001 = Right(STRING035, 2)
  557.     STRING018 = Left(STRING035, 5)
  558.     STRING018 = Right(STRING035, 2)
  559.     INTEGER002 = STRING017
  560.     INTEGER003 = STRING018
  561.     INTEGER004 = STRING001
  562.     INTEGER021 = INTEGER026
  563.     STRING028 = INTEGER026
  564.     If (STRING040 == "A") Then
  565.         STRING028 = 1
  566.         INTEGER021 = 1
  567.         INTEGER026 = INTEGER008
  568.     Endif
  569.     INTEGER025 = INTEGER026
  570.     INTEGER009 = 1
  571.     If (Len(TSTRING015(STRING028)) > 39) Then
  572.         TSTRING015(STRING028) = Left(TSTRING015(STRING028), 39)
  573.     Endif
  574.     Color 15
  575.     AnsiPos INTEGER027, INTEGER028
  576.     Print TSTRING015(STRING028)
  577.     Color 8
  578.     Print "]"
  579.     For INTEGER001 = 1 To 9000
  580.         STRING026 = ReadLine(TSTRING014(INTEGER021), INTEGER001)
  581.         If (Len(STRING026) < 1) Then
  582.             STRING028 = STRING028 + 1
  583.             If (STRING028 == INTEGER026 + 1) Then
  584.                 Goto LABEL020
  585.             Endif
  586.             If (INTEGER022 == 1) Then
  587.                 TINTEGER019(INTEGER009 - 1) = INTEGER001 - 1
  588.             Endif
  589.             INTEGER021 = INTEGER021 + 1
  590.             INTEGER001 = 0
  591.             INTEGER022 = 0
  592.             AnsiPos INTEGER027, INTEGER028
  593.             If (Len(TSTRING015(STRING028)) > 39) Then
  594.                 TSTRING015(STRING028) = Left(TSTRING015(STRING028), 39)
  595.             Endif
  596.             Print "                                       "
  597.             AnsiPos INTEGER027, INTEGER028
  598.             Color 15
  599.             Print TSTRING015(STRING028)
  600.             Color 8
  601.             Print "]"
  602.             Continue
  603.         Endif
  604.         STRING023 = Left(STRING026, 1)
  605.         If (STRING023 == " ") Then
  606.             Continue
  607.         Endif
  608.         If (INTEGER022 == 1) Then
  609.             TINTEGER019(INTEGER009 - 1) = INTEGER001 - 1
  610.             INTEGER022 = 0
  611.         Endif
  612.         STRING027 = Left(STRING026, 31)
  613.         STRING027 = Right(STRING027, 8)
  614.         Gosub LABEL018
  615.         If (INTEGER020 == 0) Then
  616.             INTEGER020 = 10
  617.             Continue
  618.         Endif
  619.         INTEGER020 = 10
  620.         TSTRING024(INTEGER009) = STRING027
  621.         TSTRING025(INTEGER009) = Left(STRING026, 21)
  622.         TSTRING025(INTEGER009) = Right(TSTRING025(INTEGER009), 9)
  623.         Gosub LABEL019
  624.         TSTRING022(INTEGER009) = Left(STRING026, 13)
  625.         TINTEGER018(INTEGER009) = INTEGER001 + 1
  626.         TSTRING034(INTEGER009) = TSTRING014(INTEGER021)
  627.         INTEGER022 = 1
  628.         INTEGER009 = INTEGER009 + 1
  629.         INTEGER020 = 10
  630.     Next
  631.     :LABEL018
  632.     STRING020 = Left(STRING027, 2)
  633.     STRING017 = Left(STRING035, 2)
  634.     STRING019 = Right(STRING027, 2)
  635.     STRING001 = Right(STRING035, 2)
  636.     STRING021 = Left(STRING027, 5)
  637.     STRING018 = Left(STRING035, 5)
  638.     STRING021 = Right(STRING021, 2)
  639.     STRING018 = Right(STRING018, 2)
  640.     INTEGER005 = STRING020
  641.     INTEGER002 = STRING017
  642.     INTEGER006 = STRING021
  643.     INTEGER003 = STRING018
  644.     INTEGER007 = STRING019
  645.     INTEGER004 = STRING001
  646.     INTEGER029 = INTEGER007 * 12
  647.     INTEGER029 = INTEGER029 + INTEGER005
  648.     INTEGER029 = INTEGER029 * 30
  649.     INTEGER029 = INTEGER029 + INTEGER006
  650.     INTEGER030 = STRING001 * 12
  651.     INTEGER030 = INTEGER030 + INTEGER002
  652.     INTEGER030 = INTEGER030 * 30
  653.     INTEGER030 = INTEGER030 + INTEGER003
  654.     If (INTEGER007 < INTEGER004) Then
  655.         INTEGER020 = 0
  656.         Return
  657.     Endif
  658.     If ((INTEGER029 > INTEGER030) || (INTEGER029 == INTEGER030)) Then
  659.         INTEGER020 = 1
  660.         Return
  661.     Endif
  662.     INTEGER020 = 0
  663.     Return
  664.     :LABEL019
  665.     INTEGER017 = InStr(TSTRING025(INTEGER009), " ")
  666.     If (INTEGER017 < 1) Then
  667.         Return
  668.     Endif
  669.     TSTRING025(INTEGER009) = Right(TSTRING025(INTEGER009), Len(TSTRING025(INTEGER009)) - 1)
  670.     Goto LABEL019
  671.     :LABEL020
  672.     If (INTEGER022 == 1) Then
  673.         TINTEGER019(INTEGER009 - 1) = INTEGER001 - 1
  674.     Endif
  675.     FCloseAll
  676.     INTEGER008 = INTEGER009 - 1
  677.     If (INTEGER008 < 1) Then
  678.         Goto LABEL038
  679.     Endif
  680.     STRING007 = "@X11█@X07"
  681.     Color 8
  682.     Cls
  683.     PrintLn "@POFF@@X3B┌─────────────────────────────────────────────────────────────────────────────@X30┐@X03"
  684.     PrintLn "@X3B│ @X31NuFILES v1.00                            Copyright (c)1996 Equinox Software @X30│@X03"
  685.     PrintLn "@X3B│                                                                             @X30│@X03"
  686.     PrintLn "@X3B│      ┌──────────────@X30┬───────────────────────────────@X3B┐                       @X30│@X03"
  687.     PrintLn "@X3B│      │    @X3FFILES     @X30│      @X3FFILE DESCRIPTION         @X3B│                       @X30│@X03"
  688.     PrintLn "@X3B│      @X3B├@X30──────────────┴@X3B───────────────────────────────┴@X30────────────────┐      │@X03"
  689.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  690.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  691.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  692.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  693.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  694.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  695.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  696.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  697.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  698.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  699.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  700.     PrintLn "@X3B│      @X3B│@X0F              @X07│@X0F                                                @X30│      │@X03"
  701.     PrintLn "@X3B│      @X3B└@X30───────────────────────────────────────────────────────────────┘      │@X03"
  702.     PrintLn "@X3B│              @X3EFile size @X07[············]@X3E Flagged fls @X07[···········]@X37             @X30│@X03"
  703.     PrintLn "@X3B│              @X3EFile date @X07[············]@X3E Left for DL @X07[···········]@X37             @X30│@X03"
  704.     PrintLn "@X3B└@X30────────── @X3FUse @X3A @X3F= move to file, @X3ASPACE @X3F= flag/unflag, @X3AESC @X3F= exit @X30─────────┘@X07"
  705.     If (STRING042 <> STRING043) Then
  706.         Goto LABEL021
  707.     ElseIf (STRING042 == STRING043) Then
  708.         Goto LABEL022
  709.     Endif
  710.     :LABEL021
  711.     AnsiPos 3, 3
  712.     PrintLn "@X3EUNREGISTERED EVALUATION COPY                   UNREGISTERED EVALUATION COPY@X07"
  713.     AnsiPos 1, 22
  714.     :LABEL022
  715.     INTEGER010 = 7
  716.     INTEGER009 = 1
  717.     Gosub LABEL023
  718.     INTEGER010 = 7
  719.     INTEGER009 = 1
  720.     Color 31
  721.     Gosub LABEL034
  722.     AnsiPos 10, INTEGER010
  723.     Print Upper(TSTRING022(INTEGER009))
  724.     Color 15
  725.     AnsiPos 54, 21
  726.     Print "@BYTESLEFT@"
  727.     Gosub LABEL030
  728.     Color 15
  729.     AnsiPos 27, 20
  730.     Print TSTRING025(INTEGER009)
  731.     Color 15
  732.     AnsiPos 27, 21
  733.     Print TSTRING024(INTEGER009)
  734.     AnsiPos 54, 20
  735.     Print INTEGER024
  736.     INTEGER010 = 7
  737.     INTEGER009 = 1
  738.     Gosub LABEL025
  739.     Goto LABEL026
  740.     :LABEL023
  741.     If (INTEGER010 == 19) Then
  742.         Return
  743.     Endif
  744.     AnsiPos 9, INTEGER010
  745.     Color 8
  746.     Print "              "
  747.     Color 9
  748.     AnsiPos 10, INTEGER010
  749.     Print TSTRING022(INTEGER009)
  750.     If (Len(TSTRING029(INTEGER009)) > 1) Then
  751.         AnsiPos 10, INTEGER010
  752.         Color 11
  753.         Print TSTRING022(INTEGER009)
  754.     Endif
  755.     INTEGER009 = INTEGER009 + 1
  756.     INTEGER010 = INTEGER010 + 1
  757.     Goto LABEL023
  758.     :LABEL024
  759.     If (INTEGER010 == 19) Then
  760.         Return
  761.     Endif
  762.     AnsiPos 9, INTEGER010
  763.     Color 8
  764.     Print "              "
  765.     Color 9
  766.     AnsiPos 10, INTEGER010
  767.     Print TSTRING022(INTEGER009)
  768.     If (Len(TSTRING029(INTEGER009)) > 1) Then
  769.         AnsiPos 10, INTEGER010
  770.         Color 11
  771.         Print TSTRING022(INTEGER009)
  772.     Endif
  773.     INTEGER009 = INTEGER009 + 1
  774.     INTEGER010 = INTEGER010 + 1
  775.     Goto LABEL024
  776.     :LABEL025
  777.     AnsiPos 9, INTEGER010
  778.     Color 17
  779.     Print "█@X07"
  780.     AnsiPos 9, INTEGER010
  781.     Print ""
  782.     Return
  783.     :LABEL026
  784.     STRING011 = Inkey()
  785.     If (STRING011 == "UP") Then
  786.         Goto LABEL027
  787.     Endif
  788.     If (STRING011 == "DOWN") Then
  789.         Goto LABEL028
  790.     Endif
  791.     If (((STRING011 == Chr(32)) && (INTEGER009 == INTEGER008)) && (Len(TSTRING029(INTEGER009)) < 1)) Then
  792.         TSTRING029(INTEGER009) = TSTRING022(INTEGER009)
  793.         Color 27
  794.         AnsiPos 10, INTEGER010
  795.         Print TSTRING022(INTEGER009)
  796.         STRING011 = ""
  797.         Gosub LABEL032
  798.         Gosub LABEL025
  799.     Endif
  800.     If (((STRING011 == Chr(32)) && (INTEGER009 == INTEGER008)) && (Len(TSTRING029(INTEGER009)) > 1)) Then
  801.         TSTRING029(INTEGER009) = ""
  802.         Color 31
  803.         AnsiPos 10, INTEGER010
  804.         Print TSTRING022(INTEGER009)
  805.         STRING011 = ""
  806.         INTEGER024 = INTEGER024 - 1
  807.         AnsiPos 54, 20
  808.         Color 15
  809.         Print INTEGER024
  810.         Gosub LABEL025
  811.     Endif
  812.     If ((((STRING011 == Chr(32)) && (Len(TSTRING029(INTEGER009)) < 1)) && (INTEGER010 == 18)) && (INTEGER008 > 12)) Then
  813.         TSTRING029(INTEGER009) = TSTRING022(INTEGER009)
  814.         Gosub LABEL032
  815.     ElseIf ((((STRING011 == Chr(32)) && (Len(TSTRING029(INTEGER009)) > 1)) && (INTEGER010 == 18)) && (INTEGER008 > 12)) Then
  816.         TSTRING029(INTEGER009) = ""
  817.         INTEGER024 = INTEGER024 - 1
  818.         AnsiPos 54, 20
  819.         Color 15
  820.         Print INTEGER024
  821.     Else
  822.         If (((STRING011 == Chr(32)) && (Len(TSTRING029(INTEGER009)) < 1)) && (INTEGER010 < 19)) Then
  823.             TSTRING029(INTEGER009) = TSTRING022(INTEGER009)
  824.             Color 8
  825.             AnsiPos 9, INTEGER010
  826.             Print "              "
  827.             AnsiPos 10, INTEGER010
  828.             Color 11
  829.             Print TSTRING022(INTEGER009)
  830.             INTEGER009 = INTEGER009 + 1
  831.             INTEGER010 = INTEGER010 + 1
  832.             AnsiPos 9, INTEGER010
  833.             Print STRING007
  834.             AnsiPos 10, INTEGER010
  835.             Color 31
  836.             Print TSTRING022(INTEGER009)
  837.             Gosub LABEL030
  838.             Gosub LABEL025
  839.             STRING011 = ""
  840.             Gosub LABEL032
  841.             Goto LABEL026
  842.         Endif
  843.         If (((STRING011 == Chr(32)) && (Len(TSTRING029(INTEGER009)) > 1)) && (INTEGER010 < 19)) Then
  844.             TSTRING029(INTEGER009) = ""
  845.             Color 8
  846.             AnsiPos 9, INTEGER010
  847.             Print "              "
  848.             AnsiPos 10, INTEGER010
  849.             Color 9
  850.             Print TSTRING022(INTEGER009)
  851.             INTEGER009 = INTEGER009 + 1
  852.             INTEGER010 = INTEGER010 + 1
  853.             AnsiPos 9, INTEGER010
  854.             Print STRING007
  855.             AnsiPos 10, INTEGER010
  856.             Color 31
  857.             Print TSTRING022(INTEGER009)
  858.             Gosub LABEL030
  859.             INTEGER024 = INTEGER024 - 1
  860.             AnsiPos 54, 20
  861.             Color 15
  862.             Print INTEGER024
  863.             Gosub LABEL025
  864.             STRING011 = ""
  865.             Goto LABEL026
  866.         Endif
  867.         If (STRING011 == Chr(27)) Then
  868.             Goto LABEL035
  869.         Endif
  870.         Goto LABEL026
  871.         :LABEL027
  872.         If (INTEGER009 == 1) Then
  873.             Goto LABEL026
  874.         Endif
  875.         If (INTEGER010 == 7) Then
  876.             INTEGER009 = INTEGER009 - 12
  877.             INTEGER010 = 7
  878.             Gosub LABEL024
  879.             INTEGER009 = INTEGER009 - 1
  880.             INTEGER010 = 18
  881.             AnsiPos 9, INTEGER010
  882.             Print STRING007
  883.             AnsiPos 10, INTEGER010
  884.             Color 31
  885.             Gosub LABEL034
  886.             Print Upper(TSTRING022(INTEGER009))
  887.             Gosub LABEL030
  888.             Color 15
  889.             Gosub LABEL031
  890.             AnsiPos 27, 20
  891.             Print TSTRING025(INTEGER009)
  892.             AnsiPos 29, 21
  893.             Print TSTRING024(INTEGER009)
  894.             Gosub LABEL025
  895.             Goto LABEL026
  896.         Endif
  897.         Color 8
  898.         AnsiPos 9, INTEGER010
  899.         Print "              "
  900.         AnsiPos 10, INTEGER010
  901.         Color 9
  902.         Gosub LABEL033
  903.         Print TSTRING022(INTEGER009)
  904.         INTEGER009 = INTEGER009 - 1
  905.         INTEGER010 = INTEGER010 - 1
  906.         AnsiPos 9, INTEGER010
  907.         Print STRING007
  908.         AnsiPos 10, INTEGER010
  909.         Color 31
  910.         Gosub LABEL034
  911.         Print Upper(TSTRING022(INTEGER009))
  912.         Color 15
  913.         Gosub LABEL031
  914.         AnsiPos 27, 20
  915.         Print TSTRING025(INTEGER009)
  916.         AnsiPos 29, 21
  917.         Print TSTRING024(INTEGER009)
  918.         Gosub LABEL030
  919.         Gosub LABEL025
  920.         Goto LABEL026
  921.     Endif
  922.     :LABEL028
  923.     If ((INTEGER010 == 19) && (INTEGER009 < 12)) Then
  924.         Goto LABEL026
  925.     Endif
  926.     If ((INTEGER010 > 17) && (INTEGER008 > 12)) Then
  927.         INTEGER009 = INTEGER009 + 1
  928.         INTEGER010 = 7
  929.         Gosub LABEL023
  930.         INTEGER009 = INTEGER009 - 12
  931.         INTEGER010 = 7
  932.         AnsiPos 9, INTEGER010
  933.         Print STRING007
  934.         AnsiPos 10, INTEGER010
  935.         Color 31
  936.         Gosub LABEL034
  937.         Print Upper(TSTRING022(INTEGER009))
  938.         Color 15
  939.         Gosub LABEL031
  940.         AnsiPos 27, 20
  941.         Print TSTRING025(INTEGER009)
  942.         AnsiPos 29, 21
  943.         Print TSTRING024(INTEGER009)
  944.         Gosub LABEL030
  945.         Gosub LABEL025
  946.         Goto LABEL026
  947.     Endif
  948.     If (INTEGER009 == INTEGER008) Then
  949.         Goto LABEL026
  950.     Endif
  951.     Color 8
  952.     AnsiPos 9, INTEGER010
  953.     Print "              "
  954.     AnsiPos 10, INTEGER010
  955.     Color 9
  956.     Gosub LABEL033
  957.     Print TSTRING022(INTEGER009)
  958.     INTEGER009 = INTEGER009 + 1
  959.     INTEGER010 = INTEGER010 + 1
  960.     AnsiPos 9, INTEGER010
  961.     Print STRING007
  962.     AnsiPos 10, INTEGER010
  963.     Gosub LABEL034
  964.     Print Upper(TSTRING022(INTEGER009))
  965.     Color 15
  966.     Gosub LABEL031
  967.     AnsiPos 27, 20
  968.     Print TSTRING025(INTEGER009)
  969.     AnsiPos 29, 21
  970.     Print TSTRING024(INTEGER009)
  971.     Gosub LABEL030
  972.     Gosub LABEL025
  973.     Goto LABEL026
  974.     :LABEL029
  975.     For INTEGER013 = INTEGER013 To 18
  976.         Color 8
  977.         AnsiPos 25, INTEGER013
  978.         Print "                                              "
  979.     Next
  980.     Return
  981.     :LABEL030
  982.     INTEGER013 = 7
  983.     For INTEGER001 = TINTEGER018(INTEGER009) To TINTEGER019(INTEGER009)
  984.         If (INTEGER013 == 19) Then
  985.             Gosub LABEL029
  986.             Return
  987.         Endif
  988.         STRING032 = ReadLine(TSTRING034(INTEGER009), INTEGER001)
  989.         STRING032 = Left(STRING032, 80)
  990.         STRING032 = Right(STRING032, Len(STRING032) - 33)
  991.         Color 10
  992.         AnsiPos 25, INTEGER013
  993.         Print STRING032
  994.         INTEGER013 = INTEGER013 + 1
  995.     Next
  996.     Gosub LABEL029
  997.     Return
  998.     :LABEL031
  999.     AnsiPos 27, 20
  1000.     Color 8
  1001.     Print "············"
  1002.     Color 15
  1003.     Return
  1004.     :LABEL032
  1005.     INTEGER024 = INTEGER024 + 1
  1006.     Gosub LABEL031
  1007.     AnsiPos 27, 20
  1008.     Color 15
  1009.     Print TSTRING025(INTEGER009)
  1010.     AnsiPos 29, 21
  1011.     Print TSTRING024(INTEGER009)
  1012.     AnsiPos 54, 21
  1013.     Color 15
  1014.     Print "@BYTESLEFT@"
  1015.     AnsiPos 54, 20
  1016.     Print INTEGER024
  1017.     STRING031 = PCBMac("@BYTESLEFT@")
  1018.     Return
  1019.     STRING033 = STRING031
  1020.     STRING033 = Upper(STRING033)
  1021.     If (STRING033 == "UNLIMITED") Then
  1022.         Return
  1023.     Endif
  1024.     INTEGER023 = STRING031
  1025.     STRING030 = 1
  1026.     Return
  1027.     :LABEL033
  1028.     If (Len(TSTRING029(INTEGER009)) > 1) Then
  1029.         Color 11
  1030.         Return
  1031.     Endif
  1032.     Color 9
  1033.     Return
  1034.     :LABEL034
  1035.     If (Len(TSTRING029(INTEGER009)) > 1) Then
  1036.         Color 27
  1037.         Return
  1038.     Endif
  1039.     Color 31
  1040.     Return
  1041.     :LABEL035
  1042.     For INTEGER001 = 1 To INTEGER008
  1043.         If (Len(TSTRING029(INTEGER001)) > 1) Then
  1044.             Cls
  1045.             PrintLn "@POFF@@X0BFlagging any marked files...@X07"
  1046.             Newline
  1047.             FCreate 1, PPEPath() + "FLAG.TMP", 1, 0
  1048.             FPutLn 1, TSTRING029(INTEGER001)
  1049.             FCloseAll
  1050.             Command 0, "Flag " + TSTRING029(INTEGER001)
  1051.         Endif
  1052.     Next
  1053.     If (Exist(PPEPath() + "FLAG.TMP")) Goto LABEL036
  1054.     Goto LABEL037
  1055.     :LABEL036
  1056.     KbdFlush
  1057.     Color 8
  1058.     Cls
  1059.     Newline
  1060.     PrintLn "@PON@@X0F≡@X09≡ @X0BNuFILES v1.00                         Copyright (c)1996 Equinox Software @X09≡@X0F≡"
  1061.     PrintLn "@X09──────────────────────────────────────────────────────────────────────────────@X07"
  1062.     Newline
  1063.     PrintLn "@X0F@FIRST@, your marked files have been flagged for download."
  1064.     PrintLn "To download your files, choose the @X0C[@X0AD@X0C]@X0Eownload @X0Fcommand from the main menu."
  1065.     PrintLn ""
  1066.     Newlines 9
  1067.     Wait
  1068.     Gosub LABEL039
  1069.     End
  1070.     :LABEL037
  1071.     Gosub LABEL039
  1072.     End
  1073.     :LABEL038
  1074.     KbdFlush
  1075.     Newlines 2
  1076.     PrintLn STRING039
  1077.     Newlines 5
  1078.     Wait
  1079.     Gosub LABEL039
  1080.     End
  1081.     :LABEL039
  1082.     KbdFlush
  1083.     If (STRING042 <> STRING043) Then
  1084.         Goto LABEL040
  1085.     ElseIf (STRING042 == STRING043) Then
  1086.         Goto LABEL041
  1087.     Endif
  1088.     :LABEL040
  1089.     Cls
  1090.     Newlines 7
  1091.     PrintLn " @X40┌───────────────────────────────────────────────────────────────────────────@X4C┐@X07"
  1092.     PrintLn " @X40│            @X4BThis program is an @X4EUNREGISTERED EVALUATION COPY!               @X4C│@X07"
  1093.     PrintLn " @X40│    @X4BYou can Register this program by calling the Equinox Support BBS at    @X4C│@X07"
  1094.     PrintLn " @X40│                                @X4B312-254-3413                               @X4C│@X07"
  1095.     PrintLn " @X40│ @X48══════════════════════ @X4A15 Second Unregistered Delay!@X48 ════════════════════ @X4C│@X07"
  1096.     PrintLn " @X40└@X4C───────────────────────────────────────────────────────────────────────────┘@X07"
  1097.     Newline
  1098.     Delay 18 * 15
  1099.     Return
  1100.     :LABEL041
  1101.     Return
  1102.     :LABEL042
  1103.     If (FileInf(PPEPath() + PPEName() + ".PPE", 4) <> "17520") Goto LABEL043
  1104.     Return
  1105.     :LABEL043
  1106.     Delete PPEPath() + "NEWFILES.PPE"
  1107.     If (Exist(PPEPath() + "NUFILES.ZIP")) Delete PPEPath() + "NUFILES.ZIP"
  1108.     If (Exist(PPEPath() + "NEWFILES.PPX")) Delete PPEPath() + "NEWFILES.PPX"
  1109.     If (Exist(PPEPath() + "NEWFILES.PPD")) Delete PPEPath() + "NEWFILES.PPD"
  1110.     If (Exist(PPEPath() + "PPLX.EXE")) Delete PPEPath() + "PPLX.EXE"
  1111.     If (Exist(PPEPath() + "EQ_NF1.ZIP")) Delete PPEPath() + "EQ_NF1.ZIP"
  1112.     End
  1113.  
  1114. ;------------------------------------------------------------------------------
  1115. ;
  1116. ; Usage report (before postprocessing)
  1117. ;
  1118. ; ■ Statements used :
  1119. ;
  1120. ;    4       End
  1121. ;    6       Cls
  1122. ;    2       Wait
  1123. ;    84      Color 
  1124. ;    171     Goto 
  1125. ;    243     Let 
  1126. ;    132     Print 
  1127. ;    52      PrintLn 
  1128. ;    94      If 
  1129. ;    1       FCreate 
  1130. ;    1       FOpen 
  1131. ;    1       FGet 
  1132. ;    1       FPutLn 
  1133. ;    1       GetUser
  1134. ;    7       Delete 
  1135. ;    45      Gosub 
  1136. ;    22      Return
  1137. ;    1       Delay 
  1138. ;    8       Newline
  1139. ;    4       Newlines 
  1140. ;    119     AnsiPos 
  1141. ;    3       KbdFlush
  1142. ;    3       FCloseAll
  1143. ;    1       Command 
  1144. ;
  1145. ;
  1146. ; ■ Functions used :
  1147. ;
  1148. ;    5       *
  1149. ;    1       /
  1150. ;    97      +
  1151. ;    34      -
  1152. ;    65      ==
  1153. ;    6       <>
  1154. ;    17      <
  1155. ;    5       <=
  1156. ;    20      >
  1157. ;    10      >=
  1158. ;    86      !
  1159. ;    30      &&
  1160. ;    6       ||
  1161. ;    33      Len(
  1162. ;    7       Upper()
  1163. ;    2       Mid()
  1164. ;    28      Left()
  1165. ;    14      Right()
  1166. ;    15      Chr()
  1167. ;    3       Asc()
  1168. ;    2       InStr()
  1169. ;    1       Date()
  1170. ;    1       U_LDate()
  1171. ;    4       Inkey()
  1172. ;    3       String()
  1173. ;    1       CurConf()
  1174. ;    1       PCBDat()
  1175. ;    22      PPEPath()
  1176. ;    8       ReadLine()
  1177. ;    7       Exist()
  1178. ;    11      GetX()
  1179. ;    5       GetY()
  1180. ;    1       FileInf()
  1181. ;    1       PPEName()
  1182. ;    1       PCBMac()
  1183. ;
  1184. ;------------------------------------------------------------------------------
  1185. ;
  1186. ; Analysis flags : d
  1187. ;
  1188. ; d - Access PCBOARD.DAT ■ 2
  1189. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1190. ;     for many PPE so they can find various informations on the system
  1191. ;     (system paths, max number of lines in messages, ...) but it may also
  1192. ;     be a way to gather vital informations.
  1193. ;     ■ Search for : PCBDAT()
  1194. ;
  1195. ;------------------------------------------------------------------------------
  1196. ;
  1197. ; Postprocessing report
  1198. ;
  1199. ;    5       For/Next
  1200. ;    0       While/EndWhile
  1201. ;    81      If/Then or If/Then/Else
  1202. ;    0       Select Case
  1203. ;
  1204. ;------------------------------------------------------------------------------
  1205. ;                 AEGiS Corp - Break the routines, code against the machines!
  1206. ;------------------------------------------------------------------------------
  1207.